inherited frmConsultaMovimentacaoProdutosPec: TfrmConsultaMovimentacaoProdutosPec
  Left = 354
  Top = 125
  Width = 728
  Height = 526
  Caption = 'Consulta Movimenta'#231#227'o de Produtos - Pecu'#225'ria'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TcxPageControl
    Width = 720
    Height = 473
    ClientRectBottom = 473
    ClientRectRight = 720
    inherited tbsLista: TcxTabSheet
      inherited Panel1: TPanel
        Width = 720
        Height = 133
        object cbProdutor: TcxDBLookupComboBox
          Left = 8
          Top = 24
          DataBinding.DataField = 'PRODUTOR'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end
            item
              FieldName = 'CODIGO'
            end>
          Properties.ListSource = dsProdutor
          TabOrder = 0
          Width = 320
        end
        object cxLabel2: TcxLabel
          Left = 8
          Top = 8
          Caption = 'Produtor'
          Transparent = True
        end
        object cbTerceiro: TcxDBLookupComboBox
          Left = 336
          Top = 24
          DataBinding.DataField = 'TERCEIRO'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsTerceiro
          TabOrder = 1
          Width = 320
        end
        object cxLabel5: TcxLabel
          Left = 336
          Top = 8
          Caption = 'Terceiro'
          Transparent = True
        end
        object cbPropriedade: TcxDBLookupComboBox
          Left = 8
          Top = 64
          DataBinding.DataField = 'PROPRIEDADE'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsPropriedade
          TabOrder = 2
          Width = 320
        end
        object cxLabel6: TcxLabel
          Left = 8
          Top = 48
          Caption = 'Propriedade'
          Transparent = True
        end
        object cbOperacao: TcxDBLookupComboBox
          Left = 336
          Top = 64
          DataBinding.DataField = 'OPERACAO'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsOperacoes
          TabOrder = 3
          Width = 321
        end
        object cxLabel19: TcxLabel
          Left = 336
          Top = 48
          Caption = 'Opera'#231#227'o'
          Transparent = True
        end
        object cxLabel3: TcxLabel
          Left = 336
          Top = 88
          Caption = 'Saldo Inicial'
          Transparent = True
        end
        object cbProduto: TcxDBLookupComboBox
          Left = 8
          Top = 104
          DataBinding.DataField = 'PRODUTO'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end
            item
              FieldName = 'CODIGO'
            end>
          Properties.ListSource = dsProdutos
          TabOrder = 4
          Width = 320
        end
        object cxLabel7: TcxLabel
          Left = 8
          Top = 88
          Caption = 'Produto'
          Transparent = True
        end
        object cxLabel1: TcxLabel
          Left = 464
          Top = 88
          Caption = 'Ano Base'
          Transparent = True
        end
        object cxDBSpinEdit1: TcxDBSpinEdit
          Left = 464
          Top = 104
          DataBinding.DataField = 'ANO'
          DataBinding.DataSource = dsFiltro
          Properties.MinValue = 2000.000000000000000000
          TabOrder = 6
          Width = 121
        end
        object cxDBCalcEdit1: TcxDBCalcEdit
          Left = 336
          Top = 104
          DataBinding.DataField = 'SALDO'
          DataBinding.DataSource = dsFiltro
          TabOrder = 5
          Width = 121
        end
      end
      inherited frmTreePadrao: TPanel
        Top = 133
        Width = 720
        Height = 340
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 720
          Height = 340
          Align = alClient
          BevelOuter = bvNone
          Caption = 'Panel3'
          TabOrder = 0
          object Grid: TcxGrid
            Left = 0
            Top = 0
            Width = 720
            Height = 340
            Align = alClient
            TabOrder = 0
            OnEnter = GridEnter
            LevelTabs.Style = 7
            RootLevelOptions.DetailTabsPosition = dtpTop
            object cxGridDBTableView1: TcxGridDBTableView
              NavigatorButtons.ConfirmDelete = False
              NavigatorButtons.Insert.Visible = False
              NavigatorButtons.Append.Enabled = False
              NavigatorButtons.Delete.Visible = False
              NavigatorButtons.Edit.Visible = False
              NavigatorButtons.Post.Visible = False
              NavigatorButtons.Cancel.Visible = False
              NavigatorButtons.Refresh.Enabled = False
              NavigatorButtons.Refresh.Visible = False
              NavigatorButtons.SaveBookmark.Enabled = False
              NavigatorButtons.SaveBookmark.Visible = False
              NavigatorButtons.GotoBookmark.Visible = False
              DataController.DataSource = dsRegistro
              DataController.Summary.DefaultGroupSummaryItems = <>
              DataController.Summary.FooterSummaryItems = <>
              DataController.Summary.SummaryGroups = <>
              OptionsBehavior.IncSearch = True
              OptionsBehavior.NavigatorHints = True
              OptionsCustomize.ColumnHiding = True
              OptionsData.CancelOnExit = False
              OptionsData.Deleting = False
              OptionsData.DeletingConfirmation = False
              OptionsData.Editing = False
              OptionsData.Inserting = False
              OptionsSelection.CellSelect = False
              OptionsSelection.InvertSelect = False
              OptionsSelection.UnselectFocusedRecordOnExit = False
              OptionsView.Footer = True
              OptionsView.FooterAutoHeight = True
              OptionsView.GroupByBox = False
              OptionsView.GroupFooters = gfAlwaysVisible
              OptionsView.Indicator = True
              Preview.Visible = True
              Styles.StyleSheet = GridTableViewStyleSheetDevExpress
              object cxGridDBTableView1MES: TcxGridDBColumn
                DataBinding.FieldName = 'MES'
              end
              object cxGridDBTableView1ENTRADA: TcxGridDBColumn
                DataBinding.FieldName = 'ENTRADA'
              end
              object cxGridDBTableView1SAIDA: TcxGridDBColumn
                DataBinding.FieldName = 'SAIDA'
              end
              object cxGridDBTableView1SALDO: TcxGridDBColumn
                DataBinding.FieldName = 'SALDO'
              end
            end
            object GridDBChartView1: TcxGridDBChartView
              Categories.DataBinding.FieldName = 'MES'
              DataController.DataSource = dsRegistro
              DiagramColumn.Active = True
              DiagramColumn.Legend.Alignment = cpaCenter
              DiagramColumn.Legend.Border = lbSingle
              DiagramColumn.AxisCategory.TickMarkKind = tmkCross
              Title.Text = 'Evolu'#231#227'o de Saldos'
              ToolBox.DiagramSelector = True
              object GridDBChartView1Series1: TcxGridDBChartSeries
                DataBinding.FieldName = 'SALDO'
                Styles.Values = cxStyle14
              end
              object GridDBChartView1Series2: TcxGridDBChartSeries
                DataBinding.FieldName = 'ENTRADA'
                Styles.Values = cxStyle11
              end
              object GridDBChartView1Series3: TcxGridDBChartSeries
                DataBinding.FieldName = 'SAIDA'
                Styles.Values = cxStyle15
              end
            end
            object cxGridLevel1: TcxGridLevel
              Caption = 'Listagem'
              GridView = cxGridDBTableView1
            end
            object GridLevel1: TcxGridLevel
              Caption = 'Gr'#225'fico'
              GridView = GridDBChartView1
            end
          end
        end
      end
    end
  end
  inherited cxImageList1: TcxImageList
    FormatVersion = 1
  end
  inherited GridPopupMenu: TcxGridPopupMenu
    Grid = Grid
  end
  inherited StyleRepository: TcxStyleRepository
    object cxStyle15: TcxStyle [14]
      AssignedValues = [svColor]
      Color = clRed
    end
    inherited GridTableViewStyleSheetDevExpress: TcxGridTableViewStyleSheet
      BuiltIn = True
    end
  end
  inherited cxPropertiesStore: TcxPropertiesStore
    Active = False
    Components = <
      item
        Component = cxGridDBTableView1
        Properties.Strings = (
          'BackgroundBitmaps'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end
      item
        Component = cxGridDBTableView1ENTRADA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1MES
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1SAIDA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1SALDO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = Grid
        Properties.Strings = (
          'Align'
          'Anchors'
          'BevelEdges'
          'BevelInner'
          'BevelKind'
          'BevelOuter'
          'BevelWidth'
          'BorderStyle'
          'BorderWidth'
          'Constraints'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'DragOpening'
          'DragOpeningWaitTime'
          'Enabled'
          'Font'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'Left'
          'LevelTabs'
          'LookAndFeel'
          'Name'
          'ParentFont'
          'PopupMenu'
          'RootLevelOptions'
          'RootLevelStyles'
          'TabOrder'
          'TabStop'
          'Tag'
          'Top'
          'Visible'
          'Width')
      end
      item
        Component = GridDBChartView1
        Properties.Strings = (
          'ActiveDiagram'
          'Categories'
          'DataController'
          'DiagramArea'
          'DiagramBar'
          'DiagramColumn'
          'DiagramLine'
          'DiagramPie'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'Legend'
          'Name'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsView'
          'PopupMenu'
          'Styles'
          'Synchronization'
          'Tag'
          'Title'
          'ToolBox')
      end
      item
        Component = GridDBChartView1Series1
        Properties.Strings = (
          'DataBinding'
          'DisplayText'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'GroupSummaryKind'
          'Name'
          'SortOrder'
          'Styles'
          'Tag'
          'ValueCaptionFormat'
          'Visible'
          'VisibleForCustomization')
      end
      item
        Component = GridDBChartView1Series2
        Properties.Strings = (
          'DataBinding'
          'DisplayText'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'GroupSummaryKind'
          'Name'
          'SortOrder'
          'Styles'
          'Tag'
          'ValueCaptionFormat'
          'Visible'
          'VisibleForCustomization')
      end
      item
        Component = GridDBChartView1Series3
        Properties.Strings = (
          'DataBinding'
          'DisplayText'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'GroupSummaryKind'
          'Name'
          'SortOrder'
          'Styles'
          'Tag'
          'ValueCaptionFormat'
          'Visible'
          'VisibleForCustomization')
      end>
    StorageName = 'cxPropertiesStorePec'
  end
  inherited ActionList1: TActionList
    inherited ActFilter: TAction
      OnExecute = ActFilterExecute
    end
  end
  inherited dtEdit: TIBDataSet
    SelectSQL.Strings = (
      'select * from PCD_LISTA_SALDOS_PRODUTOS_PEC(:produtor,'
      '                               :propriedade,'
      '                               :ano_base,'
      '                               :produto,'
      '                               :operacao,'
      '                               :saldo,'
      '                               :terceiro)')
    object dtEditMES: TIBStringField
      DisplayLabel = 'M'#234's'
      FieldName = 'MES'
      Origin = '"PCD_LISTA_SALDOS"."MES"'
      Size = 15
    end
    object dtEditSALDO: TIBBCDField
      DisplayLabel = 'Saldo'
      FieldName = 'SALDO'
      Origin = '"PCD_LISTA_SALDOS"."SALDO"'
      DisplayFormat = '###,#00.00'
      Precision = 18
      Size = 4
    end
    object dtEditENTRADA: TIBBCDField
      DisplayLabel = 'Entrada'
      FieldName = 'ENTRADA'
      Origin = '"PCD_LISTA_SALDOS_PRODUTOS"."ENTRADA"'
      DisplayFormat = '###,#00.00'
      Precision = 18
      Size = 4
    end
    object dtEditSAIDA: TIBBCDField
      DisplayLabel = 'Saida'
      FieldName = 'SAIDA'
      Origin = '"PCD_LISTA_SALDOS_PRODUTOS"."SAIDA"'
      DisplayFormat = '###,#00.00'
      Precision = 18
      Size = 4
    end
  end
  inherited dxBarManager: TdxBarManager
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    DockControlHeights = (
      0
      0
      0
      26)
  end
  inherited mtbFiltro: TdxMemData
    Left = 632
    Top = 112
    object mtbFiltroPRODUTOR: TIntegerField
      FieldName = 'PRODUTOR'
      OnValidate = mtbFiltroPRODUTORValidate
    end
    object mtbFiltroPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
    end
    object mtbFiltroOPERACAO: TIntegerField
      FieldName = 'OPERACAO'
    end
    object mtbFiltroTERCEIRO: TIntegerField
      FieldName = 'TERCEIRO'
    end
    object mtbFiltroSALDO: TFloatField
      FieldName = 'SALDO'
      DisplayFormat = '###,#00.00'
    end
    object mtbFiltroANO: TIntegerField
      FieldName = 'ANO'
    end
    object mtbFiltroPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
    end
  end
  inherited dsFiltro: TDataSource
    Left = 632
    Top = 140
  end
  object dsOperacoes: TDataSource
    DataSet = lstOperacoes
    Left = 632
    Top = 456
  end
  object dsPropriedade: TDataSource
    DataSet = lstPropriedade
    Left = 568
    Top = 456
  end
  object lstOperacoes: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstOperacoesBeforeOpen
    SQL.Strings = (
      'select distinct op.codigo, op.nome from operacoes op'
      
        'where 0 < (select count(*) from nota_fiscal_pec nf where extract' +
        ' (year  from nf.dt_docto) = :ano and nf.operacao = op.codigo and' +
        ' nf.produtor = :codigo)')
    Left = 632
    Top = 424
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstOperacoesCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"OPERACOES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstOperacoesNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"OPERACOES"."NOME"'
      Size = 50
    end
  end
  object dsProdutor: TDataSource
    DataSet = lstProdutores
    Left = 504
    Top = 456
  end
  object dsTerceiro: TDataSource
    DataSet = lstTerceiro
    Left = 536
    Top = 456
  end
  object lstTerceiro: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstOperacoesBeforeOpen
    SQL.Strings = (
      'select distinct p.codigo, p.nome from produtores p'
      'where 0 < (select count(*) from nota_fiscal_pec n'
      
        '        where n.terceiro = p.codigo and extract (year  from n.dt' +
        '_docto) = :ano and n.produtor = :codigo'
      '        )')
    Left = 536
    Top = 424
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstTerceiroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstTerceiroNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  object lstPropriedade: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstOperacoesBeforeOpen
    SQL.Strings = (
      'select distinct pp.codigo, pp.nome from propriedade pp'
      'where 0 < (select count(*) from nota_fiscal_pec n'
      
        '        where n.propriedade_1 = pp.codigo and extract (year  fro' +
        'm n.dt_docto) = :ano and n.produtor = :codigo'
      '        )')
    Left = 568
    Top = 424
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstPropriedadeCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PROPRIEDADE"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstPropriedadeNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PROPRIEDADE"."NOME"'
      Size = 50
    end
  end
  object lstProdutores: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select p.codigo, p.nome from produtores p'
      'where p.produtor = '#39'S'#39' and p.ativo = '#39'S'#39)
    Left = 504
    Top = 424
    object lstProdutoresCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstProdutoresNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  object dsProdutos: TDataSource
    DataSet = lstProdutos
    Left = 600
    Top = 456
  end
  object lstProdutos: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstOperacoesBeforeOpen
    SQL.Strings = (
      'select distinct p.codigo, p.nome from produtos p'
      'where 0 < (select count(*) from nota_fiscal_pec n'
      
        '        inner join nota_fiscal_item_pec nfi on (nfi.nota_fiscal ' +
        '= n.codigo)'
      
        '        where nfi.produto = p.codigo and extract (year  from n.d' +
        't_docto) = :ano and n.produtor = :codigo'
      '        )')
    Left = 600
    Top = 424
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstProdutosCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTOS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstProdutosNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTOS"."NOME"'
      Size = 50
    end
  end
  object lstParametro: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstParametroBeforeOpen
    SQL.Strings = (
      'select * from parametros p'
      'where p.usuario = :usuario')
    Left = 640
    Top = 370
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'usuario'
        ParamType = ptUnknown
      end>
    object lstParametroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PARAMETROS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstParametroUSUARIO: TIntegerField
      FieldName = 'USUARIO'
      Origin = '"PARAMETROS"."USUARIO"'
    end
    object lstParametroDATA_MOVTO: TDateField
      FieldName = 'DATA_MOVTO'
      Origin = '"PARAMETROS"."DATA_MOVTO"'
    end
    object lstParametroOPERACAO: TIntegerField
      FieldName = 'OPERACAO'
      Origin = '"PARAMETROS"."OPERACAO"'
    end
    object lstParametroPRODUTOR: TIntegerField
      FieldName = 'PRODUTOR'
      Origin = '"PARAMETROS"."PRODUTOR"'
    end
    object lstParametroTERCEIRO: TIntegerField
      FieldName = 'TERCEIRO'
      Origin = '"PARAMETROS"."TERCEIRO"'
    end
    object lstParametroPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
      Origin = '"PARAMETROS"."PROPRIEDADE"'
    end
    object lstParametroPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = '"PARAMETROS"."PRODUTO"'
    end
    object lstParametroANO_BASE: TIntegerField
      FieldName = 'ANO_BASE'
      Origin = '"PARAMETROS"."ANO_BASE"'
    end
  end
end
